home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / File / Copy Test < prev    next >
Encoding:
Text File  |  1999-03-04  |  656 b   |  19 lines  |  [TEXT/ToyS]
  1. property gasLocation : {40, 60}
  2.  
  3. on run
  4.     set sysF to (path to system folder) as string
  5.     set dstF to (path to trash)
  6.     
  7.     set progW to display progress titled "Copy Test" subtitled "System & Finder" maximum 20 located at gasLocation
  8.     
  9.     repeat with i from 1 to 20 by 2
  10.         «event ÅkuaCpyF» (sysF & "System") as alias with «class over» given «class dest»:dstF
  11.         display progress progW value i
  12.         «event ÅkuaCpyF» (sysF & "Finder") as alias with «class over» given «class dest»:dstF
  13.         display progress progW value i + 1 with alternate color
  14.     end repeat
  15.     
  16.     set gasLocation to screen location of (display progress progW)
  17.     display progress progW with disposal
  18. end run
  19.